library(magrittr)
library(ggplot2)
data(diamonds)
print(dim(head(diamonds,n=4)))
print(diamonds %>% head(4) %>% dim)
